home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Toolbox.ra < prev    next >
Encoding:
Text File  |  1986-10-20  |  819 b   |  49 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Toolbox basics
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ allows you to use the Mac Toolbox.!!"
  10. "WARNING: Use of the toolbox may!"
  11. "be dangerous to your disk.!!"
  12. #A;
  13. Ñ 0A861 ╝ ª    | Random trap
  14.  0 Ñ 0A9EE ╝ ª | NumToString trap
  15. áá             | Print it
  16. " is a random number.!"
  17.  
  18. #B,0;          | the same thing as a subroutine
  19. $
  20. &B             | subroutine to print a random number string
  21. #C; 1% Ñ 0A9EE ╝ ª 
  22. áá " is a random number.!"
  23. `
  24. &C             | subroutine to get a random number
  25. Ñ 0A861 ╝ ª 
  26. `
  27. &A
  28. "Hit any key: " ?ñ ╡ @`
  29. |
  30. |  RA title routine
  31. |
  32. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  33.  
  34. &O
  35. 40 100 ╜
  36. "RA¬"
  37. 60 45 ╜ 
  38. "⌐ 1986 COM~LINK & S.Koren" 
  39. 80 60 ╜
  40. "All rights reserved." `
  41.  
  42. &L
  43. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  44.  
  45. &N
  46. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  47.  
  48. &P ?ñ @ `
  49. $